home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2005 October / PCWOCT05.iso / Software / FromTheMag / XAMPP 1.4.14 / xampp-win32-1.4.14-installer.exe / xampp / phpMyAdmin / libraries / fpdf / ufpdf.php < prev   
PHP Script  |  2004-12-30  |  15KB  |  484 lines
  1. <?php
  2. /*******************************************************************************
  3. * Software: UFPDF, Unicode Free PDF generator                                  *
  4. * Version:  0.1                                                                *
  5. *           based on FPDF 1.52 by Olivier PLATHEY                              *
  6. * Date:     2004-09-01                                                         *
  7. * Author:   Steven Wittens <steven@acko.net>                                   *
  8. * License:  GPL                                                                *
  9. *                                                                              *
  10. * UFPDF is a modification of FPDF to support Unicode through UTF-8.            *
  11. *                                                                              *
  12. *******************************************************************************/
  13.  
  14. if(!class_exists('UFPDF'))
  15. {
  16. define('UFPDF_VERSION','0.1');
  17.  
  18. include_once './libraries/fpdf/fpdf.php';
  19.  
  20. class UFPDF extends FPDF
  21. {
  22.  
  23. /*******************************************************************************
  24. *                                                                              *
  25. *                               Public methods                                 *
  26. *                                                                              *
  27. *******************************************************************************/
  28. function UFPDF($orientation='P',$unit='mm',$format='A4')
  29. {
  30.   FPDF::FPDF($orientation, $unit, $format);
  31. }
  32.  
  33. function GetStringWidth($s)
  34. {
  35.   //Get width of a string in the current font
  36.   $s = (string)$s;
  37.   $codepoints=$this->utf8_to_codepoints($s);
  38.   $cw=&$this->CurrentFont['cw'];
  39.   $w=0;
  40.   foreach($codepoints as $cp)
  41.     $w+=isset($cw[$cp])?$cw[$cp]:0;
  42.   return $w*$this->FontSize/1000;
  43. }
  44.  
  45. function AddFont($family,$style='',$file='')
  46. {
  47.   //Add a TrueType or Type1 font
  48.   $family=strtolower($family);
  49.   if($family=='arial')
  50.     $family='helvetica';
  51.   $style=strtoupper($style);
  52.   if($style=='IB')
  53.     $style='BI';
  54.   if(isset($this->fonts[$family.$style]))
  55.     $this->Error('Font already added: '.$family.' '.$style);
  56.   if($file=='')
  57.     $file=str_replace(' ','',$family).strtolower($style).'.php';
  58.   if(defined('FPDF_FONTPATH'))
  59.     $file=FPDF_FONTPATH.$file;
  60.   include($file);
  61.   if(!isset($name))
  62.     $this->Error('Could not include font definition file');
  63.   $i=count($this->fonts)+1;
  64.   $this->fonts[$family.$style]=array('i'=>$i,'type'=>$type,'name'=>$name,'desc'=>$desc,'up'=>$up,'ut'=>$ut,'cw'=>$cw,'file'=>$file,'ctg'=>$ctg);
  65.   if($file)
  66.   {
  67.     if($type=='TrueTypeUnicode')
  68.       $this->FontFiles[$file]=array('length1'=>$originalsize);
  69.     else
  70.       $this->FontFiles[$file]=array('length1'=>$size1,'length2'=>$size2);
  71.   }
  72. }
  73.  
  74. function Text($x,$y,$txt)
  75. {
  76.   //Output a string
  77.   $s=sprintf('BT %.2f %.2f Td %s Tj ET',$x*$this->k,($this->h-$y)*$this->k,$this->_escapetext($txt));
  78.   if($this->underline and $txt!='')
  79.     $s.=' '.$this->_dounderline($x,$y,$this->GetStringWidth($txt),$txt);
  80.   if($this->ColorFlag)
  81.     $s='q '.$this->TextColor.' '.$s.' Q';
  82.   $this->_out($s);
  83. }
  84.  
  85. function AcceptPageBreak()
  86. {
  87.   //Accept automatic page break or not
  88.   return $this->AutoPageBreak;
  89. }
  90.  
  91. function Cell($w,$h=0,$txt='',$border=0,$ln=0,$align='',$fill=0,$link='')
  92. {
  93.   //Output a cell
  94.   $k=$this->k;
  95.   if($this->y+$h>$this->PageBreakTrigger and !$this->InFooter and $this->AcceptPageBreak())
  96.   {
  97.     //Automatic page break
  98.     $x=$this->x;
  99.     $ws=$this->ws;
  100.     if($ws>0)
  101.     {
  102.       $this->ws=0;
  103.       $this->_out('0 Tw');
  104.     }
  105.     $this->AddPage($this->CurOrientation);
  106.     $this->x=$x;
  107.     if($ws>0)
  108.     {
  109.       $this->ws=$ws;
  110.       $this->_out(sprintf('%.3f Tw',$ws*$k));
  111.     }
  112.   }
  113.   if($w==0)
  114.     $w=$this->w-$this->rMargin-$this->x;
  115.   $s='';
  116.   if($fill==1 or $border==1)
  117.   {
  118.     if($fill==1)
  119.       $op=($border==1) ? 'B' : 'f';
  120.     else
  121.       $op='S';
  122.     $s=sprintf('%.2f %.2f %.2f %.2f re %s ',$this->x*$k,($this->h-$this->y)*$k,$w*$k,-$h*$k,$op);
  123.   }
  124.   if(is_string($border))
  125.   {
  126.     $x=$this->x;
  127.     $y=$this->y;
  128.     if(is_int(strpos($border,'L')))
  129.       $s.=sprintf('%.2f %.2f m %.2f %.2f l S ',$x*$k,($this->h-$y)*$k,$x*$k,($this->h-($y+$h))*$k);
  130.     if(is_int(strpos($border,'T')))
  131.       $s.=sprintf('%.2f %.2f m %.2f %.2f l S ',$x*$k,($this->h-$y)*$k,($x+$w)*$k,($this->h-$y)*$k);
  132.     if(is_int(strpos($border,'R')))
  133.       $s.=sprintf('%.2f %.2f m %.2f %.2f l S ',($x+$w)*$k,($this->h-$y)*$k,($x+$w)*$k,($this->h-($y+$h))*$k);
  134.     if(is_int(strpos($border,'B')))
  135.       $s.=sprintf('%.2f %.2f m %.2f %.2f l S ',$x*$k,($this->h-($y+$h))*$k,($x+$w)*$k,($this->h-($y+$h))*$k);
  136.   }
  137.   if($txt!='')
  138.   {
  139.     $width = $this->GetStringWidth($txt);
  140.     if($align=='R')
  141.       $dx=$w-$this->cMargin-$width;
  142.     elseif($align=='C')
  143.       $dx=($w-$width)/2;
  144.     else
  145.       $dx=$this->cMargin;
  146.     if($this->ColorFlag)
  147.       $s.='q '.$this->TextColor.' ';
  148.     $txtstring=$this->_escapetext($txt);
  149.     $s.=sprintf('BT %.2f %.2f Td %s Tj ET',($this->x+$dx)*$k,($this->h-($this->y+.5*$h+.3*$this->FontSize))*$k,$txtstring);
  150.     if($this->underline)
  151.       $s.=' '.$this->_dounderline($this->x+$dx,$this->y+.5*$h+.3*$this->FontSize,$width,$txt);
  152.     if($this->ColorFlag)
  153.       $s.=' Q';
  154.     if($link)
  155.       $this->Link($this->x+$dx,$this->y+.5*$h-.5*$this->FontSize,$width,$this->FontSize,$link);
  156.   }
  157.   if($s)
  158.     $this->_out($s);
  159.   $this->lasth=$h;
  160.   if($ln>0)
  161.   {
  162.     //Go to next line
  163.     $this->y+=$h;
  164.     if($ln==1)
  165.       $this->x=$this->lMargin;
  166.   }
  167.   else
  168.     $this->x+=$w;
  169. }
  170.  
  171. /*******************************************************************************
  172. *                                                                              *
  173. *                              Protected methods                               *
  174. *                                                                              *
  175. *******************************************************************************/
  176.  
  177. function _puttruetypeunicode($font) {
  178.   //Type0 Font
  179.   $this->_newobj();
  180.   $this->_out('<</Type /Font');
  181.   $this->_out('/Subtype /Type0');
  182.   $this->_out('/BaseFont /'. $font['name'] .'-UCS');
  183.   $this->_out('/Encoding /Identity-H');
  184.   $this->_out('/DescendantFonts ['. ($this->n + 1) .' 0 R]');
  185.   $this->_out('>>');
  186.   $this->_out('endobj');
  187.  
  188.   //CIDFont
  189.   $this->_newobj();
  190.   $this->_out('<</Type /Font');
  191.   $this->_out('/Subtype /CIDFontType2');
  192.   $this->_out('/BaseFont /'. $font['name']);
  193.   $this->_out('/CIDSystemInfo <</Registry (Adobe) /Ordering (UCS) /Supplement 0>>');
  194.   $this->_out('/FontDescriptor '. ($this->n + 1) .' 0 R');
  195.   $c = 0;
  196.   $widths = '';
  197.   foreach ($font['cw'] as $i => $w) {
  198.     $widths .= $i .' ['. $w.'] ';
  199.   }
  200.   $this->_out('/W ['. $widths .']');
  201.   $this->_out('/CIDToGIDMap '. ($this->n + 2) .' 0 R');
  202.   $this->_out('>>');
  203.   $this->_out('endobj');
  204.  
  205.   //Font descriptor
  206.   $this->_newobj();
  207.   $this->_out('<</Type /FontDescriptor');
  208.   $this->_out('/FontName /'.$font['name']);
  209.   $s = '';
  210.   foreach ($font['desc'] as $k => $v) {
  211.     $s .= ' /'. $k .' '. $v;
  212.   }
  213.   if ($font['file']) {
  214.         $s .= ' /FontFile2 '. $this->FontFiles[$font['file']]['n'] .' 0 R';
  215.   }
  216.   $this->_out($s);
  217.   $this->_out('>>');
  218.   $this->_out('endobj');
  219.  
  220.   //Embed CIDToGIDMap
  221.   $this->_newobj();
  222.   if(defined('FPDF_FONTPATH'))
  223.     $file=FPDF_FONTPATH.$font['ctg'];
  224.   else
  225.     $file=$font['ctg'];
  226.   $size=filesize($file);
  227.   if(!$size)
  228.     $this->Error('Font file not found');
  229.   $this->_out('<</Length '.$size);
  230.     if(substr($file,-2) == '.z')
  231.     $this->_out('/Filter /FlateDecode');
  232.   $this->_out('>>');
  233.   $f = fopen($file,'rb');
  234.   $this->_putstream(fread($f,$size));
  235.   fclose($f);
  236.   $this->_out('endobj');
  237. }
  238.  
  239. function _dounderline($x,$y,$width,$txt)
  240. {
  241.   //Underline text
  242.   $up=$this->CurrentFont['up'];
  243.   $ut=$this->CurrentFont['ut'];
  244.   $w=$width+$this->ws*substr_count($txt,' ');
  245.   return sprintf('%.2f %.2f %.2f %.2f re f',$x*$this->k,($this->h-($y-$up/1000*$this->FontSize))*$this->k,$w*$this->k,-$ut/1000*$this->FontSizePt);
  246. }
  247.  
  248. function _textstring($s)
  249. {
  250.   //Convert to UTF-16BE
  251.   $s = $this->utf8_to_utf16be($s);
  252.   //Escape necessary characters
  253.   return '('. strtr($s, array(')' => '\\)', '(' => '\\(', '\\' => '\\\\')) .')';
  254. }
  255.  
  256. function _strreplace($what, $to, $where) {
  257.     $to = '' . $to;
  258.     return str_replace($this->utf8_to_utf16be($what, false), $this->utf8_to_utf16be($to, false), $where);
  259. }
  260.  
  261. function _escapetext($s)
  262. {
  263.   //Convert to UTF-16BE
  264.   $s = $this->utf8_to_utf16be($s, false);
  265.   //Escape necessary characters
  266.   return '('. strtr($s, array(')' => '\\)', '(' => '\\(', '\\' => '\\\\')) .')';
  267. }
  268.  
  269. function _putinfo()
  270. {
  271.     $this->_out('/Producer '.$this->_textstring('UFPDF '. UFPDF_VERSION));
  272.     if(!empty($this->title))
  273.         $this->_out('/Title '.$this->_textstring($this->title));
  274.     if(!empty($this->subject))
  275.         $this->_out('/Subject '.$this->_textstring($this->subject));
  276.     if(!empty($this->author))
  277.         $this->_out('/Author '.$this->_textstring($this->author));
  278.     if(!empty($this->keywords))
  279.         $this->_out('/Keywords '.$this->_textstring($this->keywords));
  280.     if(!empty($this->creator))
  281.         $this->_out('/Creator '.$this->_textstring($this->creator));
  282.     $this->_out('/CreationDate '.$this->_textstring('D:'.date('YmdHis')));
  283. }
  284.  
  285. // UTF-8 to UTF-16BE conversion.
  286. // Correctly handles all illegal UTF-8 sequences.
  287. function utf8_to_utf16be(&$txt, $bom = true) {
  288.   $l = strlen($txt);
  289.   $out = $bom ? "\xFE\xFF" : '';
  290.   for ($i = 0; $i < $l; ++$i) {
  291.     $c = ord($txt{$i});
  292.     // ASCII
  293.     if ($c < 0x80) {
  294.       $out .= "\x00". $txt{$i};
  295.     }
  296.     // Lost continuation byte
  297.     else if ($c < 0xC0) {
  298.       $out .= "\xFF\xFD";
  299.       continue;
  300.     }
  301.     // Multibyte sequence leading byte
  302.     else {
  303.       if ($c < 0xE0) {
  304.         $s = 2;
  305.       }
  306.       else if ($c < 0xF0) {
  307.         $s = 3;
  308.       }
  309.       else if ($c < 0xF8) {
  310.         $s = 4;
  311.       }
  312.       // 5/6 byte sequences not possible for Unicode.
  313.       else {
  314.         $out .= "\xFF\xFD";
  315.         while (ord($txt{$i + 1}) >= 0x80 && ord($txt{$i + 1}) < 0xC0) { ++$i; }
  316.         continue;
  317.       }
  318.  
  319.       $q = array($c);
  320.       // Fetch rest of sequence
  321.       $l = strlen($txt);
  322.       while ($i + 1 < $l && ord($txt{$i + 1}) >= 0x80 && ord($txt{$i + 1}) < 0xC0) { ++$i; $q[] = ord($txt{$i}); }
  323.  
  324.       // Check length
  325.       if (count($q) != $s) {
  326.         $out .= "\xFF\xFD";
  327.         continue;
  328.       }
  329.  
  330.       switch ($s) {
  331.         case 2:
  332.           $cp = (($q[0] ^ 0xC0) << 6) | ($q[1] ^ 0x80);
  333.           // Overlong sequence
  334.           if ($cp < 0x80) {
  335.             $out .= "\xFF\xFD";
  336.           }
  337.           else {
  338.             $out .= chr($cp >> 8);
  339.             $out .= chr($cp & 0xFF);
  340.           }
  341.           continue;
  342.  
  343.         case 3:
  344.           $cp = (($q[0] ^ 0xE0) << 12) | (($q[1] ^ 0x80) << 6) | ($q[2] ^ 0x80);
  345.           // Overlong sequence
  346.           if ($cp < 0x800) {
  347.             $out .= "\xFF\xFD";
  348.           }
  349.           // Check for UTF-8 encoded surrogates (caused by a bad UTF-8 encoder)
  350.           else if ($c > 0xD800 && $c < 0xDFFF) {
  351.             $out .= "\xFF\xFD";
  352.           }
  353.           else {
  354.             $out .= chr($cp >> 8);
  355.             $out .= chr($cp & 0xFF);
  356.           }
  357.           continue;
  358.  
  359.         case 4:
  360.           $cp = (($q[0] ^ 0xF0) << 18) | (($q[1] ^ 0x80) << 12) | (($q[2] ^ 0x80) << 6) | ($q[3] ^ 0x80);
  361.           // Overlong sequence
  362.           if ($cp < 0x10000) {
  363.             $out .= "\xFF\xFD";
  364.           }
  365.           // Outside of the Unicode range
  366.           else if ($cp >= 0x10FFFF) {
  367.             $out .= "\xFF\xFD";
  368.           }
  369.           else {
  370.             // Use surrogates
  371.             $cp -= 0x10000;
  372.             $s1 = 0xD800 | ($cp >> 10);
  373.             $s2 = 0xDC00 | ($cp & 0x3FF);
  374.  
  375.             $out .= chr($s1 >> 8);
  376.             $out .= chr($s1 & 0xFF);
  377.             $out .= chr($s2 >> 8);
  378.             $out .= chr($s2 & 0xFF);
  379.           }
  380.           continue;
  381.       }
  382.     }
  383.   }
  384.   return $out;
  385. }
  386.  
  387. // UTF-8 to codepoint array conversion.
  388. // Correctly handles all illegal UTF-8 sequences.
  389. function utf8_to_codepoints(&$txt) {
  390.   $l = strlen($txt);
  391.   $out = array();
  392.   for ($i = 0; $i < $l; ++$i) {
  393.     $c = ord($txt{$i});
  394.     // ASCII
  395.     if ($c < 0x80) {
  396.       $out[] = ord($txt{$i});
  397.     }
  398.     // Lost continuation byte
  399.     else if ($c < 0xC0) {
  400.       $out[] = 0xFFFD;
  401.       continue;
  402.     }
  403.     // Multibyte sequence leading byte
  404.     else {
  405.       if ($c < 0xE0) {
  406.         $s = 2;
  407.       }
  408.       else if ($c < 0xF0) {
  409.         $s = 3;
  410.       }
  411.       else if ($c < 0xF8) {
  412.         $s = 4;
  413.       }
  414.       // 5/6 byte sequences not possible for Unicode.
  415.       else {
  416.         $out[] = 0xFFFD;
  417.         while (ord($txt{$i + 1}) >= 0x80 && ord($txt{$i + 1}) < 0xC0) { ++$i; }
  418.         continue;
  419.       }
  420.  
  421.       $q = array($c);
  422.       // Fetch rest of sequence
  423.       $l = strlen($txt);
  424.       while ($i + 1 < $l && ord($txt{$i + 1}) >= 0x80 && ord($txt{$i + 1}) < 0xC0) { ++$i; $q[] = ord($txt{$i}); }
  425.  
  426.       // Check length
  427.       if (count($q) != $s) {
  428.         $out[] = 0xFFFD;
  429.         continue;
  430.       }
  431.  
  432.       switch ($s) {
  433.         case 2:
  434.           $cp = (($q[0] ^ 0xC0) << 6) | ($q[1] ^ 0x80);
  435.           // Overlong sequence
  436.           if ($cp < 0x80) {
  437.             $out[] = 0xFFFD;
  438.           }
  439.           else {
  440.             $out[] = $cp;
  441.           }
  442.           continue;
  443.  
  444.         case 3:
  445.           $cp = (($q[0] ^ 0xE0) << 12) | (($q[1] ^ 0x80) << 6) | ($q[2] ^ 0x80);
  446.           // Overlong sequence
  447.           if ($cp < 0x800) {
  448.             $out[] = 0xFFFD;
  449.           }
  450.           // Check for UTF-8 encoded surrogates (caused by a bad UTF-8 encoder)
  451.           else if ($c > 0xD800 && $c < 0xDFFF) {
  452.             $out[] = 0xFFFD;
  453.           }
  454.           else {
  455.             $out[] = $cp;
  456.           }
  457.           continue;
  458.  
  459.         case 4:
  460.           $cp = (($q[0] ^ 0xF0) << 18) | (($q[1] ^ 0x80) << 12) | (($q[2] ^ 0x80) << 6) | ($q[3] ^ 0x80);
  461.           // Overlong sequence
  462.           if ($cp < 0x10000) {
  463.             $out[] = 0xFFFD;
  464.           }
  465.           // Outside of the Unicode range
  466.           else if ($cp >= 0x10FFFF) {
  467.             $out[] = 0xFFFD;
  468.           }
  469.           else {
  470.             $out[] = $cp;
  471.           }
  472.           continue;
  473.       }
  474.     }
  475.   }
  476.   return $out;
  477. }
  478.  
  479. //End of class
  480. }
  481.  
  482. }
  483. ?>
  484.